#!/usr/bin/env tclsh

proc madd {num1 num2 } {
    set rt [expr $num1 + $num2]
    return [format "0x%08x" $rt] ; #输出保留8位,前位不足则补0
    # return [format "0x%8x" $rt] ; #输出保留8位,前位不足则补空格
}

proc mmul {num1 num2 } {
    set rt [expr $num1 * $num2]
    return [format "0x%08x" $rt] ; #输出保留8位,前位不足则补0
    # return [format "0x%8x" $rt] ; #输出保留8位,前位不足则补空格
}

proc mdiv {num1 num2 } {
    set rt [expr $num1 / $num2]
    return [format "0x%08x" $rt] ; #输出保留8位,前位不足则补0
    # return [format "0x%8x" $rt] ; #输出保留8位,前位不足则补空格
}

set num1 0x1a
set num2 12
puts "[madd $num1 $num2]" ; # 进行加法计算 
puts "[mmul $num1 $num2]" ; 
puts "[mdiv $num1 $num2]" ; 